Description: Initialize the mouse and set the cursor type
Mapped Command: SET MOUSE
FUNCTION __SetGMouse(status,cursor)
   do case                                       // evaluate the requested cursor type
   case cursor == NIL                            // if no cursor was specified
      if status                                  // if ON
         if mreset() > 0                         // mouse reset, return number of buttons
            mcuron()                             // display the mouse cursor
         else
            __RunTimeError(NoMouseDriver,"SET MOUSE ON","__SetGMouse()")
         endif                                   // if mreset() > 0                         // mouse reset, return number of buttons
      else                                       // otherwise
         mcuroff()                               // hide the mouse cursor
      endif                                      // if status (SET MOUSE ON)
   case status == NIL                            // if no status was selected
      mcurtype(cursor)                           // assume the cursor type is being selected
   endcase
RETURN(Void)